* 52 08 F oDD1B1 LTRIM$ * 52 09 F oDD1BF RTRIM$ * 52 0A F oDD1CA TRIM$ * 52 0B F oDD403 RPT$ * 52 0C F oDD299 REV$ * 52 0D F oDD2A7 LWRC$ * 52 0E F oDD2A7 LWC$ * 52 0F F oDD4AD ROT$ * 52 10 F oDD307 SPAN * 52 11 F oDD313 MEMBER * 52 12 F oDD535 SBIT$ * 52 13 F oDD662 SBIT NIBASC 'STRINGLX' Filename CON(4) #E208 File type NIBHEX 0 Flags NIBHEX 0 Copy code NIBHEX 9391 Creation time NIBHEX 918098 Creation date REL(5) FILEND FILEND *DD058 ---------- File header end *DD059 --LEX header-- CON(2) #52 LEX ID CON(2) #08 Lowest token CON(2) #13 Highest token CON(5) #00000 NO linked LEX NIBHEX F NO speed table CON(4) #007A Offset to text table CON(4) #0000 NO message table REL(5) oDD177 Offset to Poll Handler *DD072------MAIN TABLE------ *DD072 CON(3) #000 Offset to text REL(5) oDD1B1 LTRIM$ execution code NIBHEX F char. nib *DD07B CON(3) #057 Offset to text REL(5) oDD1BF RTRIM$ execution code NIBHEX F char. nib *DD084 CON(3) #089 Offset to text REL(5) oDD1CA TRIM$ execution code NIBHEX F char. nib *DD08D CON(3) #04C Offset to text REL(5) oDD403 RPT$ execution code NIBHEX F char. nib *DD096 CON(3) #036 Offset to text REL(5) oDD299 REV$ execution code NIBHEX F char. nib *DD09F CON(3) #01A Offset to text REL(5) oDD2A7 LWRC$ execution code NIBHEX F char. nib *DD0A8 CON(3) #00F Offset to text REL(5) oDD2A7 LWC$ execution code NIBHEX F char. nib *DD0B1 CON(3) #041 Offset to text REL(5) oDD4AD ROT$ execution code NIBHEX F char. nib *DD0BA CON(3) #07E Offset to text REL(5) oDD307 SPAN execution code NIBHEX F char. nib *DD0C3 CON(3) #027 Offset to text REL(5) oDD313 MEMBER execution code NIBHEX F char. nib *DD0CC CON(3) #066 Offset to text REL(5) oDD535 SBIT$ execution code NIBHEX F char. nib *DD0D5 CON(3) #073 Offset to text REL(5) oDD662 SBIT execution code NIBHEX F char. nib *DD0DD---MAIN TABLE END--- *DD0DE---Text table--- *DD0DE CON(1) #B NIBASC 'LTRIM$' CON(2) #08 Token *DD0ED CON(1) #7 NIBASC 'LWC$' CON(2) #0E Token *DD0F8 CON(1) #9 NIBASC 'LWRC$' CON(2) #0D Token *DD105 CON(1) #B NIBASC 'MEMBER' CON(2) #11 Token *DD114 CON(1) #7 NIBASC 'REV$' CON(2) #0C Token *DD11F CON(1) #7 NIBASC 'ROT$' CON(2) #0F Token *DD12A CON(1) #7 NIBASC 'RPT$' CON(2) #0B Token *DD135 CON(1) #B NIBASC 'RTRIM$' CON(2) #09 Token *DD144 CON(1) #9 NIBASC 'SBIT$' CON(2) #12 Token *DD151 CON(1) #7 NIBASC 'SBIT' CON(2) #13 Token *DD15C CON(1) #7 NIBASC 'SPAN' CON(2) #10 Token *DD167 CON(1) #9 NIBASC 'TRIM$' CON(2) #0A Token NIBHEX 1FF Text table end *DD176---------- *DD177 Poll handler oDD177 ?B=0 B GOYES oDD17F GONC oDD1AB oDD17F C=R3 D1=C A=R2 D1=D1- 12 CD1EX ?CC B GOYES oDD2D9 ?D=A A GOYES oDD47D oDD476 GOVLNG #0944D =MEMERR oDD47D A=R1 A=A-1 A R1=A GOC oDD498 C=R3 AD1EX GOSBVL #1B0EE =MOVEDM GONC oDD47D oDD498 A=R3 CD1EX D1=C A=A-C A B=A A GOTO oDD274 NIBHEX 8422 *DD4AD ROT$ entry point oDD4AD GOSUB oDD697 GOSUB oDD669 to GOVLNG #0BD8D =MPOP1N GOC oDD4C7 GOSUB oDD677 ST=1 1 GOC oDD4D0 ?XM=0 GOYES oDD4CB oDD4C7 GOTO oDD335 oDD4CB ST=0 1 A=-A A oDD4D0 A=A+A A GOC oDD4C7 R1=A A=0 W GOSUB oDD681 to GOVLNG #0BD38 =POP1S R2=A ?A=0 A GOYES oDD526 C=R1 oDD4EA ?C<=A A GOYES oDD4F7 C=C-A A R1=C GONC oDD4EA oDD4F7 ?ST=1 1 GOYES oDD500 GOSUB oDD6A6 oDD500 A=R1 GOSUB oDD6A6 A=R2 GOSUB oDD6A6 A=R2 C=R1 A=A-C A GOSUB oDD6A6 ?ST=1 1 GOYES oDD526 A=R2 GOSUB oDD6A6 oDD526 A=R2 B=A A GOTO oDD274 NIBHEX 888424 *DD535 SBIT$ entry point oDD535 ST=1 0 oDD538 P=C 15 C=0 W C=C-1 W R1=C ?P= 2 GOYES oDD5AE ?P= 3 GOYES oDD57E GOSUB oDD669 to GOVLNG #0BD8D =MPOP1N GOC oDD5B5 GOSUB oDD677 GONC oDD5B5 ASRC ?A#0 A GOYES oDD5B5 ?A=0 S GOYES oDD575 A=A-1 S ?A#0 S GOYES oDD5B5 A=A+1 S oDD575 C=R1 C=A S R1=C oDD57E GOSUB oDD669 to GOVLNG #0BD8D =MPOP1N GOC oDD5B5 GOSUB oDD677 GONC oDD5B5 ASRC ?A#0 A GOYES oDD5B5 A=A+A S GOC oDD5B5 ASRB C=A S P=C 15 C=R1 C=P 5 R1=C oDD5AE GOSUB oDD669 to GOVLNG #0BD8D =MPOP1N GONC oDD5B9 oDD5B5 GOTO oDD335 oDD5B9 GOSUB oDD677 GONC oDD5B5 C=R1 C=A A A=0 W GOSUB oDD681 to GOVLNG #0BD38 =POP1S R0=A ?C=0 A GOYES oDD5B5 C=C+C A GOC oDD5B5 A=A-C A GOC oDD5B5 CD1EX D1=C A=A+C A AD1EX C=DAT1 B D=0 A D=D+1 A P= 5 oDD5F2 C=C-1 P GOC oDD604 D=D+D B GONC oDD5F2 C=-C-1 B GONC oDD650 oDD604 ?ST=1 0 GOYES oDD62C D1=A A=R0 CD1EX C=C+A A CD1EX A=0 W C=C&D A ?C=0 B GOYES oDD628 P= 14 A=A+1 P oDD628 GOTO oDD288 oDD62C ?C=0 S GOYES oDD644 C=C+1 S GONC oDD64C B=C A C=C&D A BCEX A ?B=0 B GOYES oDD64C oDD644 D=-D-1 A C=C&D A D=0 A oDD64C C=C!D A oDD650 DAT1=C B D1=A A=R0 GOTO oDD27D NIBHEX 88433 *DD662 SBIT entry point oDD662 ST=0 0 GOTO oDD538 oDD669 GOVLNG #0BD8D =MPOP1N oDD670 GOVLNG #1B31B =HDFLT oDD677 D1=D1+ 16 GOVLNG #1B223 =FLTDH oDD681 GOVLNG #0BD38 =POP1S oDD688 D0=(5) #2F8BB RAM=FUNCD0 A=DAT0 A D0=A RTN oDD697 AD0EX D0=(5) #2F8BB RAM=FUNCD0 DAT0=A A RTN oDD6A6 B=0 W B=A A SB=0 BSRB BSRB CD1EX C=C+B A C=C+B A D1=C D0=C ?SB=0 GOYES oDD6DB GONC oDD6D8 oDD6C9 D1=D1- 2 A=DAT0 B C=DAT1 B DAT1=A B DAT0=C B oDD6D8 D0=D0+ 2 oDD6DB B=B-1 A GONC oDD6C9 RTNCC FILEND * DISASM started 89/08/21 12:54:01 * DISASM finished 89/08/21 13:03:43